﻿Public Class ven_eng_rec1
    Private Sub btnok_ven_eng_rec1_Click(sender As Object, e As EventArgs) Handles btnok_ven_eng_rec1.Click
        yc1 = Convert.ToSingle(txtyc1_eng_rec1.Text)
        pc1 = Convert.ToSingle(txtpc1_eng_rec1.Text)
        angpresn1 = Convert.ToSingle(txtangpresn1_eng_rec1.Text)
        angpresn1 = angpresn1 * (3.141592 / 180)
        angheli1 = 0
        angheli1 = angheli1 * (3.141592 / 180)
        mod1 = Convert.ToSingle(txtmod1_eng_rec1.Text)
        z1 = Convert.ToSingle(txtz1_eng_rec1.Text)
        mt1 = (pc1 * 10 ^ 6) / nrev
        dp1 = (mod1 * z1) / Math.Cos(angheli1)
        c1x = (2 * mt1) / dp1
        c1y = c1x * Math.Tan(angheli1)
        c1z = c1x * (Math.Tan(angpresn1) / Math.Cos(angheli1))
        m1x = -dp1 * 0.5 * c1y
        m1y = dp1 * 0.5 * c1x
        m1z = 0

        Me.Close()
    End Sub

    Private Sub txtyc1_eng_rec1_TextChanged(sender As Object, e As EventArgs) Handles txtyc1_eng_rec1.TextChanged

    End Sub
End Class